#lang racket
(require rsound rsound/piano-tones)
(define ps (make-pstream))
(define note1 (piano-tone 81))
(define note2 (piano-tone 84))
(define note3 (piano-tone 83))
(define note4 (piano-tone 88))
(define note5 (piano-tone 76))

(define (p n) (pstream-play ps n))

(define l (rs-append* (list
                       note1
                       note2 
                       note3
                       note1
                       note3
                       note4
                       note5
                       )))